home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh15b.d64 / beispiel 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  42 lines
  1. 100 REM
  2. 110 REM WRITTEN BY UDO WOEHLER
  3. 120 REM
  4. 130 IFFL=0THENFL=1:LOAD"DIRECTORY-LOAD",8,1
  5. 140 GOSUB 460
  6. 150 PRINT"    BITTE LEGEN SIE EIN DISKETTE EIN"
  7. 160 PRINT"             TASTE DRUECKEN   [146]"
  8. 170 POKE198,0:WAIT198,1:GETS$
  9. 180 DIMF$(143),B%(143),T%(143),TR%(143),S%(143)
  10. 190 SYS49152,NA$,ZH%,F$,B%,T%,TR%,S%,"SURP"
  11. 200 FORT=0TOZH%-1
  12. 210 GOSUB460
  13. 220 PRINT"[154]DISK:";LEFT$(NA$,16);"[154]  ID:";RIGHT$(NA$,2)
  14. 230 PRINT:PRINT:PRINT"[154]PROGRAMMNAME   : ";F$(T)
  15. 240 PRINT:PRINT"[154]PROGRAMMLAENGE :";B%(T)
  16. 250 PRINT:PRINT"[154]ANFANGSBLOCK   :";TR%(T);"/";S%(T)
  17. 260 REM PROGRAMMTYP
  18. 270 A=(T%(T)AND7)
  19. 280 IFA=0THENA$="DEL"
  20. 290 IFA=1THENA$="SEQ"
  21. 300 IFA=2THENA$="PRG"
  22. 310 IFA=3THENA$="USR"
  23. 320 IFA=4THENA$="REL"
  24. 330 PRINT:PRINT"[154]PROGRAMMTYP    : ";A$
  25. 340 REM PRUEFT AUF ORDNUNGSGEMAESS ABGESCHLOSSEN
  26. 350 IF(T%(T)AND128)=0THENA$="NEIN":GOTO390
  27. 360 A$="JA"
  28. 370 PRINT:PRINT"[154]ABSCHLUSS OK  ?: ";A$
  29. 380 REM PRUEFT AUF SCHREIBSCHUTZ
  30. 390 IF(T%(T)AND64)=64THENA$="JA":GOTO410
  31. 400 A$="NEIN"
  32. 410 PRINT:PRINT"[154]SCHREIBSCHUTZ ?: ";A$
  33. 420 PRINT"          [154]   TASTE DRUECKEN   [146]";
  34. 430 POKE198,0:WAIT198,1:GETS$
  35. 440 NEXT T
  36. 450 PRINT"[147]":END
  37. 460 PRINT"[147]                                        ";
  38. 470 PRINT"             SHOW DIRECTORY             ";
  39. 480 PRINT"         [154]WRITTEN BY UDO WOEHLER         ";
  40. 490 PRINT"                                        "
  41. 500 RETURN
  42.